home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
biz
/
demo
/
mrback_a_demo114.lha
/
ARexx_Scripts
/
buffer.mrbk
< prev
next >
Wrap
Text File
|
1991-01-12
|
906b
|
49 lines
/* buffer.mrbk */
/* This simple program runs tests MRBackup's ARexx capabilities. */
signal on ERROR
signal on BREAK_C
options results
if ~(Show('P', 'MRBackup_#1')) then do
say "You must run MRBackup first. With a little work, you could"
say "get this ARexx script to do it for you."
exit 1
end
address "MRBackup_#1"
poptofront
'notealert "This ARexx script plays with the Buffer Size value."'
'getbufsize'
msg = "Current buffer size = " || result || "K"
'notealert' '"'msg'"'
'setbufsize 64'
msg = "New buffer size = " || result || "K"
'notealert' '"'msg'"'
exit 0
/*------------------------------------------------------------------*/
break_c:
say "*** Control-C recieved. Stopped by user. ***"
exit 5
/*------------------------------------------------------------------*/
error:
say "Error"
exit 6
/*------------------------------------------------------------------*/